home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2_c.plp < prev    next >
Text File  |  1993-11-30  |  3KB  |  124 lines
  1. /**********   マージしたログを凍結する  v1.04a用   *********/
  2. %DelMes{
  3.     var boad[2];
  4.     %MergeDir    logc1|{\}|name|logc2;
  5.     %line        @memo(1,boadnum,1);
  6.     %title        @head(@getchar(line,36),{\n});
  7.     footnote({});
  8.     boad:=@getchar(line,11,2);
  9.     case(@getchar(boad,1,1)={ },{Yes},{boad:={0}|@getchar(boad,2,1)});
  10.     %src    {MES}|boad|{.ALL};
  11.     case(@filechk(MergeDir|{\}|src),
  12.     {Yes},{    
  13.         loop({
  14.             select({保存済の｢}|title|{｣を削除},
  15.             9999,{im({Yes});
  16.             },{ Ｏ Ｋ },{ delfile(MergeDir|{\}|src);
  17.                      im({No});
  18.             },{ Ｎ Ｇ },{ im({No});
  19.             });
  20.         });
  21.     },{No},{
  22.         loop({
  23.             select({マージ済ファイルが存在しません},
  24.             9999,{im({Yes});
  25.             },{ Ｏ Ｋ },{ im({No});
  26.             });
  27.         });
  28.     });
  29. };
  30. %ArcMes{
  31.     var boad[2];
  32.     %MergeDir    logc1|{\}|name|logc2;
  33.     %line        @memo(1,boadnum,1);
  34.     %title        @head(@getchar(line,36),{\n});
  35.     footnote({});
  36.     boad:=@getchar(line,11,2);
  37.     case(@getchar(boad,1,1)={ },{Yes},{boad:={0}|@getchar(boad,2,1)});
  38.     %src    {MES}|boad|{.ALL};
  39.     case(@filechk(MergeDir|{\}|src),
  40.     {Yes},{    footnote(title|{の凍結先は？});
  41.         %out    @filesel({LZH});
  42.         case(out<>{},
  43.         {Yes},{    footnote(title|{の凍結処理をしています});
  44.             command({LHa a }|out|{ }|MergeDir|{\}|src);
  45.             command({LHa t }|out|{ }|src);
  46.             loop({
  47.                 select({保存ログを削除します},
  48.                 9999,{im({Yes});
  49.                 },{ Ｏ Ｋ },{ delfile(MergeDir|{\}|src);
  50.                          im({No});
  51.                 },{ Ｎ Ｇ },{ im({No});
  52.                 });
  53.             });
  54.         });
  55.         footnote({});
  56.     },{No},{
  57.         loop({
  58.             select({保存ログが存在しません},
  59.             9999,{im({Yes});
  60.             },{ Ｏ Ｋ },{ im({No});
  61.             });
  62.         });
  63.     });
  64. };
  65. %LogArc{[name]
  66.     var boadnum[3];
  67.     mclear(1);
  68.     Treq:=name;
  69.     TITLE;
  70.     mset(1,{r});
  71.     loop({
  72.         mopen(1,0,21,639,459);
  73.         curline(boadnum);
  74.         footnote({終了    凍結    削除},{b});
  75.         loop({
  76.             waitx(1000);
  77.             im(@xtype!=1 && @PFK(@xtype)<100 ||
  78.                 @xlinenum<2 ||
  79.                 @xlinenum>=@nolmemo(1)
  80.             );
  81.         });
  82.         boadnum:=@xlinenum;
  83.         CloseAllMemo;
  84.         case(@PFK(@xtype),
  85.             1,{ ArcMes;    im({Yes});
  86.         },101,{ im({No});
  87.         },103,{ ArcMes;    im({Yes});
  88.         },105,{ DelMes;    im({Yes});
  89.         },   ,{ im({Yes});
  90.         });
  91.     });
  92.     case(@mcheck!=0,{Yes},{mclose(3)});
  93.     CloseAllMemo;
  94.     mset(1,{n});
  95.     footnote({});
  96. };
  97. %BForum{
  98.     var f2[1000];
  99.     var b2[1000];
  100.     f2:=forum;
  101.     b2:={loop(}|@xc({7b})|
  102.         {select({ フォーラムを選択してください},999,{im({Yes})}};
  103.     loop({
  104.         %fnset    @head(f2,{/});
  105.         %fname    @head(fnset,{(});
  106.         %ccsset    @body(fnset,{(},{)});
  107.         case(b2<>{},{Yes},{b2:=b2|{,}});
  108.         b2:=b2    |@xc({7b})|{ } | fname|{ }|@xc({7d})|{,}
  109.             |@xc({7b})|{ LogArc(}
  110.             |@xc({7b})|fname|@xc({7d})|{); im({No}); }
  111.             |@xc({7d});
  112.         f2:=@body(f2,{/});
  113.         im(f2<>{});
  114.     });
  115.     b2:=b2    |{,{ 前に戻る },{im({No})} ); footnote({}); }
  116.         |@xc({7d})|{);};
  117.     case(forum={},
  118.     {Yes}, {im({});
  119.     },{No},{im(b2);
  120.     });
  121. };
  122. %SelForum    @BForum;
  123. SelForum;
  124.